The name in textsec-email-suspicious-p is optional

* lisp/international/textsec.el (textsec-email-suspicious-p): The
name is optional.

diff --git a/lisp/international/textsec.el b/lisp/international/textsec.el
index 55e4ce9d86c162fad1867bb1c28371510c4cb6f1..70ac1d080d20bb7f68827dfcd5d8c0e242d77f51 100644 (file)
--- a/lisp/international/textsec.el
+++ b/lisp/international/textsec.el
@@ -311,7 +311,7 @@ problem is returned."
     (or
      (textsec-domain-suspicious-p domain)
      (textsec-local-address-suspicious-p local)
-     (textsec-name-suspicious-p name))))
+     (and name (textsec-name-suspicious-p name)))))
 
 (provide 'textsec)